Homework 1

Introduction

This is our first R markdown document. In this section we will do a quick introduction about Japanese culture followed by a video and a text to explain what we think about it. As you will see in the third section their will be a presentaion of what each person likes the most for example with Jetnisa it will be japanese culture and for Mehdi will be Arthur Conan Doyle and so on so forth. We will finish the assignement with R syntax and references that we used for our work.

Let’s take a look !

This is an introductory video about Japan itself and a bit of japanese culture. A presentation of common things in Japan followed by a background music. Of course there is much more to see in Japan but there is always a starting point !

Group Members

Jetnisa

The theme of my part will be on japanese culture, especially on one of my favorite movie which is “le Voyage de Chihiro” (aka “Spirited away” in english).

Voyage de Chihiro Poster

Voyage de Chihiro aka Spirited away

Quote of Clavell

People to be in complete accord with their ruler.- Clavell, 1983

Sui Pheng and Hui Hong (2005)

Emojis

## 😄

## 💎

## ❤️

Big GIF

Voyage de Chihiro

small GIF

My classes this semester

This table contains all the classes I am following this semester and the hours of each class.

Courses	Hours
Web based data collection	2:00
Microeconomics2	4:00
Sécurité des systèmes d’info	2:00
Création d’entreprise	2:00
Préjugés à l’université	2:00

Mehdi

Sherlock Holmes caption

Sherlock Holmes

Arthur Conan Doyle quotes :

When you have eliminated all which is impossible, then whatever remains, however improbable, must be the truth

Hill (1965)

Emojis

## 🧞

## ⚕️

## 🛬

Will give at random an emoji + To use chunk code: Cmd + Option + I

Large giphy

In front of statistical language

Small giphy

Table

Class	Hours
Web data	2H
Terrorisme	4H
Econ histoire	4H
Dev economics	4H
Sys inf sec	2H

Rachel

Game of Thrones

The most popular serie of the world, Game of Thrones will return on April 14, 2019

Winter is coming

The joy is shared by millions and millions of people

When I know that GOT comes back in less than 1 month

… But is finishing in 2 months…

How do you fell about it ?

## 😄

## 😕

## 😅

Table

Courses	Hours
Web based data collection	2:00
Microeconomics II	4:00
Sécurité des systèmes d’info	2:00
Création d’entreprise	2:00
Mathématiques II	4:00
Contrôle de Gestion	4:00
Consumer Behavior	2:00
Economie Contemporaine	4:00

Neila

Detective Conan

Detective Conan

Voltaire

The best is the enemy of the good.- Voltaire, related with detective’s philosophy

Luke and Panait (2002)

Emojis

## 🕵

## 🤓

## 😁

Big GIF

Detective Conan

Small GIF

Table

Class	Hours
Web data	2H
MicroI	4H
Micro II	4H
macro I	4H
Gestion	4H
Banque privée	4H

R Markdown Syntax

Misleading answers by using the cache option

(a <- 5)

## [1] 5

we putted a being equal to some random uniform number

(d <- 0.5*log(2*pi*exp(1)*a^(2)))

## [1] 3.028376

It should give the right answer

(d <- 0.5*log(2*pi*exp(1)*a^(2)))

## [1] 3.028376

However when you change again the value of a there will be a mislaeanding answer since by the cache function R stores the old value of a. To fix this problem we need to add another comment on the chunk code which is dependson. This will tell the program to take the value of a and not the saved one. Cahce can be very useful to save computaional time.

Random sample

n = 100
x = rnorm(n) # Generates 100 random numbers and stored in a vector
(median(x))

## [1] -0.04183784

(mean(x))

## [1] -0.07754603

(var(x))

## [1] 0.924272

It is normal to get values different from what expected as n is not big enough. As n grows we will get values close to the predicted ones.As we can see by changing the n = 100000 below

n = 100000
x = rnorm(n) # Generates 100000 random numbers and stored in a vector
(median(x))

## [1] -0.004792631

(mean(x))

## [1] -0.001979556

(var(x))

## [1] 0.9998917

Histogram

b = 100
x = rnorm(b) # Generates 100 random numbers and stored in a vector
hist(x)

Mathematical equation

\[E[var\{v_1(\hat \theta,n|\hat \theta)\}] = var\{v1(\theta_0,n\} + E[\vartheta_p\{D_1(\theta^*,n)(\hat \theta-\theta_0),...,D_p(\theta^*,n)(\theta-\theta_0)\}] = var\{v1(\theta_0,n)\} + \vartheta(n^{-2})\]

In line equation

\[ A \equiv [a_{ij}]_{i,j=1,...,p} \]

Text of Montesquieu

“Vérité dans un temps, erreur dans un autre.”, Charles de Montesquieu

For More information

More info

https://en.wikipedia.org/wiki/Japan

Color box

An important event : Japan expo https://www.japan-expo-paris.com/fr/

References

References about statistcal inference :)

Casella and Berger (2002)

Casella, George, and Roger L Berger. 2002. Statistical Inference. Vol. 2. Duxbury Pacific Grove, CA.

Hill, Austin Bradford. 1965. “The Environment and Disease: Association or Causation?” SAGE Publications.

Luke, Sean, and Liviu Panait. 2002. “Is the Perfect the Enemy of the Good?” In Proceedings of the 4th Annual Conference on Genetic and Evolutionary Computation, 820–28. Morgan Kaufmann Publishers Inc.

Sui Pheng, Low, and Sze Hui Hong. 2005. “Strategic Quality Management for the Construction Industry.” The TQM Magazine 17 (1). Emerald Group Publishing Limited: 35–53.